8bitfiles.net/archives/archives.tar/archives/compuserve-file-archive/22 Graphics & Utilities/DORIS.BIN

Commodore BASIC | 2019-04-13 | 9.6 KB | 220 lines

100 REM THIS PROGRAM DOWNLOADED FROM BULLET-80 OF
110 REM CLARKS SUMMIT, PA.  717 586 2112
120 REM CALGIRL1
130 GOTO200
140 Z$="":FORI=1TOZ:Z$=Z$+CHR$(32):NEXT:RETURN
150 Y$="":FORI=1TOY:Y$=Y$+CHR$(36):NEXT:RETURN
160 X$="":FORI=1TOX:X$=X$+CHR$(46):NEXT:RETURN
170 Z$="":FORI=1TOZ:Z$=Z$+CHR$(42):NEXT:RETURN
180 Y$="":FORI=1TOY:Y$=Y$+CHR$(42):NEXT:RETURN
190 REM
200 A$=" ":B$="  ":C$="   ":D$="    ":E$="     ":F$="      "
210 H$="$":I$="$$":J$="$$$":K$="$$$$":L$="$$$$$":M$="$$$$$$"
220 O$="*":P$="**":Q$="***":R$="****":S$="*****":T$="******"
230 V$=".":W$="..":X$="...":Y$="....":Z$="....."
240 G$="       ":N$="$$$$$$$":U$="*******"
250 GOTO350
260 Y=10:GOSUB150:Z=14:GOSUB140:GOTO1240
270 (null)=5:GOSUB160:Y=23:GOSUB180:Z=15:GOSUB170:GOTO1480
280 PRINT:GOSUB340
290 PRINT:GOSUB340
300 PRINT:GOSUB340
310 PRINT:GOSUB340
320 PRINT:GOSUB340
330 PRINT
340 RETURN
350 PRINT"[147]";
360 PRINT"READY YOUR PRINTER. THIS PROGRAM"
370 PRINT"REQUIRES 44 CONTINUOUS INCHES OF PAPER."
380 PRINT"YOUR PRINTER SHOULD BE SET TO 10"
390 PRINT"CHARACTERS PR INCH HORIZONTALLY AND 6"
400 PRINT"LINES PER INCH VERTICALLY. IF YOU ARE"
410 PRINT"USING FANFOLD PAPER, INSERT 4 SHEETS"
420 PRINT"AND START ONE INCH FROM THE TOP."
430 PRINT
440 PRINT"POSITION PAPER TO CENTER A 7 INCH LINE"
450 PRINT"LENGTH."
460 PRINT
470 PRINT"HIT RETURN WHEN PRINTER IS READY."
480 GETAA$:IFAA$=""THEN480
490 PRINT"[147]";
500 PRINT"IF LINE IS CENTERED,  HIT ENTER."
505 PRINT"OTHERWISE, BREAK NOW AND START OVER."
510 GETAA$:IFAA$=""THEN510
520 OPEN4,4:CMD4
530 GOSUB280
540 Z=25:Y=15:GOSUB140:GOSUB150:PRINTZ$;G$;Y$
550 PRINTZ$;E$;Y$;L$
560 Y=23:GOSUB150:PRINTZ$;D$;Y$
570 PRINTZ$;B$;Y$;J$
580 PRINTZ$;Y$;M$
590 Z=17:GOSUB140:PRINTZ$;G$;Y$;N$
600 Y=33:GOSUB150:PRINTZ$;F$;Y$
610 PRINTZ$;E$;Y$;I$
620 PRINTZ$;D$;Y$;K$
630 PRINTZ$;D$;Y$;K$
640 PRINTZ$;D$;Y$;L$
650 PRINTZ$;C$;Y$;M$
660 Y=23:GOSUB150:PRINTZ$;C$;Y$;I$;" $ ";N$;J$
670 PRINTZ$;B$;Y$;L$;"  ";N$;J$
680 PRINTZ$;B$;Y$;"*.*";M$;"*";N$
690 PRINTZ$;A$;"$*";J$;N$;V$;L$;V$;L$;".*";N$;".**";L$
700 PRINTZ$;"$*";N$;K$;"..*";L$;A$;G$;L$;".**";M$
710 PRINTZ$;"$*";N$;K$;".*.*.";J$;A$;I$;C$;M$;Q$;M$
720 Z=15:GOSUB140:PRINTZ$;A$;"$*";M$;M$;"..*.*  **$$ ";G$;W$;P$;M$
730 PRINTZ$;A$;N$;N$;".$.*. *.*$$";G$;"..**";N$
740 PRINTZ$;N$;N$;I$;".*.* .*$$*$$";C$;O$;C$;P$;N$
750 PRINTZ$;A$;N$;N$;H$;A$;Q$;".*";F$;F$;"*.$";N$;"*.
760 Y[178]10:[141]150
770 [153]Z$;B$;Y$;L$;"*.*. $$";N$;"* *.";K$;A$;K$;"*.
780 PRINTZ$;C$;Y$;K$;".*.*  ";N$;B$;V$;O$;L$;A$;K$;"*.
790 [153]Z$;D$;Y$;L$;"*.***.*.*. *.*.";J$;B$;L$;"*.
800 PRINTZ$;E$;Y$;L$;"*.**----.* ";Y$;L$
810 PRINTZ$;E$;Y$;J$;B$;I$;A$;Q$;B$;J$;A$;J$;B$;N$;I$
820 PRINTZ$;B$;Y$;N$;C$;M$;C$;J$;B$;S$;S$
830 PRINTZ$;Y$;N$;A$;I$;"*.* ";G$;I$;B$;O$;Y$
840 Z=14:GOSUB140
850 PRINTZ$;M$;M$;M$;A$;J$;"*.*.*.* ";Q$;B$;O$;N$;A$;I$
860 PRINTZ$;M$;M$;M$;B$;I$;".*.*.*";B$;P$;"$ *";N$;A$;I$
870 PRINTZ$;J$;Q$;G$;L$;A$;K$;".*.**  **";L$;O$;I$;B$;H$
880 PRINTZ$;I$;S$;E$;H$;D$;"$.*  ** ";G$;N$;C$;H$
890 PRINTZ$;A$;U$;D$;I$;B$;M$;"*.*.*";F$;M$;B$;"$ $
900 [153]Z$;A$;U$;O$;C$;J$;A$;L$;"*.*.*.";Q$;D$;L$;B$;I$;" $
910 PRINTZ$;U$;P$;C$;K$;U$;B$;"* ";L$;" * ";L$;A$;I$;B$;H$;F$;I$
920 PRINTZ$;U$;O$;D$;N$;C$;".**";U$;" *  ";M$;" $  ";N$
930 Z=12:GOSUB140
940 PRINTZ$;A$;U$;P$;F$;J$;F$;V$;U$;B$;P$;B$;M$;A$;N$;H$
950 PRINTZ$;A$;U$;P$;Z$;C$;V$;U$;C$;P$;B$;M$;F$;H$
960 PRINTZ$;A$;U$;"*.*";Z$;D$;V$;S$;C$;S$;" $ $";N$
970 PRINTZ$;U$;Q$;".*";Z$;C$;V$;S$;D$;Q$;J$;" $  ";K$
980 PRINTZ$;"**$";U$;".*";G$;"* ";G$;V$;R$;G$;B$;J$
990 PRINTZ$;"**$";T$;".*.";F$;I$;X$;F$;W$;P$;G$;B$;"* *
1000 [153]Z$;"**$";U$;".*";F$;"*$*..  ";G$;O$;F$;E$;O$
1010 [153]Z$;"**$";T$;".*.";E$;"$$*$";X$;G$;" .*";X$;F$;P$
1020 [153]Z$;"**$";S$;".*.*.";D$;"$*$*.*...";G$;".*...";F$;O$
1030 [153]Z$;"**$";T$;".*..";D$;"$$*$*.*.. ";G$;"*....";E$;O$
1040 [153]Z$;".*$";S$;".*.*.   *$*$*.*...  ";G$;"*....";D$;V$
1050 [153]Z$;A$;"*$";R$;".*.*..";C$;J$;"*.*.*..   ";G$;"*...";E$;O$
1060 Z[178]14:[141]140
1070 [153]Z$;"$*****.*.*.   $$*.*.*.*.";G$;D$;"*..";F$;V$
1080 [153]Z$;H$;T$;".$..   $$$*$*.$$..";F$;Q$;"  *..";E$;".*
1090 PRINTZ$;H$;S$;".*.*";D$;"$$*.*.*.$*$..  ";T$;" *..";F$;".*
1100 [153]Z$;H$;T$;".*..";C$;J$;"*.****$*$";T$;"$** * ..";F$;".*
1110 PRINTZ$;H$;S$;".*.*.   $$**.***$*$";U$;P$;"  **...";F$;".*
1120 [153]Z$;H$;T$;".*..   $$*$*$*$***.*.*..    ***";R$;E$;Q$;")
1130 PRINTZ$;H$;T$;".*..   $$*$*$*$****.*.*    ****";S$;D$;Q$
1140 PRINTZ$;H$;T$;".**.   ";L$;"*$*$$$";M$;V$;A$;O$;A$;T$;Q$;C$;P$
1150 PRINTZ$;H$;T$;"..*.";C$;K$;"*$.$.$.";K$;V$;A$;O$;"  * **";U$
1160 PRINTZ$;H$;T$;".*.";D$;L$;"*$";F$;F$;"* *
1170 [153]Z$;H$;U$;".*";D$;K$;R$;J$;G$;" * .*
1180 PRINTZ$;H$;T$;".*.";D$;J$;".$*  *$$  ";F$;"* .*
1190 [153]Z$;H$;U$;".**";C$;J$;O$;F$;"*$ ";F$;"* **
1200 PRINTG$;F$;I$;T$;".*.";E$;O$;K$;E$;"*$";F$;"  .*
1210 [153]G$;F$;U$;"**.*";E$;K$;G$;"*$";D$;" * **
1220 PRINTG$;E$;"$****";U$;V$;E$;"*   ";G$;O$;D$;"* $ *
1230 [153]G$;D$;J$;I$;U$;"*..";E$;O$;G$;F$;" * $ *
1240 PRINTG$;C$;Q$;W$;I$;U$;Q$;E$;O$;F$;F$;"*  $ *
1250 [153]G$;"  $***...$$***";U$;E$;"*   ***";G$;" $.*
1260 PRINTG$;" $***....*$$*";U$;V$;F$;"* **";G$;"  $*. *
1270 [153]F$;"$****..*.";R$;I$;U$;O$;F$;O$;E$;"     $$*. *
1280 PRINTE$;H$;R$;".**";U$;J$;U$;F$;H$;G$;"  $$*.  *
1290 [153]D$;H$;T$;".**";U$;J$;U$;F$;O$;F$;"  $$$*. *
1300 PRINTC$;H$;U$;".***";U$;J$;T$;G$;O$;D$;".$ $*.   *
1310 [153]"  $";S$;".****.**";U$;I$;U$;G$;"*  ($$ $$*.  *
1320 PRINT" $";U$;".*.*.***";U$;J$;T$;G$;"*  $$ $$*.  *
1330 [153]H$;S$;".*.*";U$;U$;K$;U$;F$;"*  * $*..  *
1340 X=5:GOSUB160:Z=15:GOSUB170:Y=23:GOSUB180
1350 PRINTH$;S$;".**.*";Z$;N$;T$;E$;" $*....  *
1360 [153]S$;".**..";U$;R$;".*.*.*";M$;U$;O$;C$;" $***..  *
1370 PRINTH$;S$;".*.*.****";T$;"..*.*";X$;B$;J$;T$;D$;"$**..  *
1380 [153]H$;Q$;".*.**";U$;S$;".*.*";T$;W$;D$;H$;T$;D$;"*..  *
1390 PRINTH$;R$;".*.*.*****";U$;".*.*.*.. .*..";D$;I$;C$;J$;" **   **
1400 [153]H$;R$;".*.*.*****";U$;".*.**... .*...";D$;I$;B$;J$;A$;U$
1410 [153]S$;".*.";Z$;".*.*";X$;A$;X$;D$;Q$;" $ *";U$
1420 [153]S$;".**.*.";R$;U$;".*.*.*.";X$;" .. .";D$;"$$*$$$   *";U$;J$
1430 [153]H$;R$;".*.*.*****.";U$;".*.*.*...";X$;" ..";E$;S$;"$*) $ ";R$;C$;"$)
1440 PRINT" $";S$;".*.*.***";U$;R$;".*.**..";X$;" ..";E$;"$***$$  $)) $$";D$;"* *
1450 [153]"  $";S$;".*.*.***";R$;U$;".*.**";X$;X$;F$;"***$$  $)$$ $$$ ..*.
1460 PRINT"  $*..**.*.*.";S$;U$;"..*.*....";X$;X$;F$;"**$$ $$ $$  $$))**
1470 [153]D$;"$..**.*.*....";T$;R$;".**.*....";X$;X$;E$;"**$ $$))$$) *) **
1480 PRINTF$;"$.**.";R$;".*.";U$;R$;"..*.*....";X$;X$;E$;"$$ $$. $$)$$$$)
1490 [153]G$;" .$..*.*.***.*.***";U$;".**....";X$;X$;E$;"$$ $$$ $$ )))*
1500 PRINTG$;A$;R$;"$..*.*.***.";U$;T$;".**.*...";X$;" .";D$;"))**$$ d$$.**
1510 [153]G$;U$;"*$..***.*.**";Z$;".**.*";X$;" .";D$;Q$;" $) $.)*
1520 PRINTF$;H$;R$;U$;"$..*.";Z$;R$;".**.*.*.... .";E$;"))  )))*
1530 [153]F$;"$.$";U$;S$;"$..*.";Z$;U$;".**.... .";E$;H$;S$
1540 [153]G$;" $..$";U$;S$;"(null)*.**";Y$;X$;". .   $";R$
1550 [153]G$;"   .$...$";U$;R$;H$;Z$;U$;".**..*.... .   $**
1560 PRINTG$;G$;".$....$..$...$..$***";Y$;".... ..   $
1570 [153]G$;G$;" **  .$..$...$..  $**";Y$;X$;"...
1580 PRINTG$;G$;" **  $";R$;G$;D$;"$**";Y$;X$;W$
1590 PRINTG$;G$;"$**  $";R$;G$;G$;" $";Y$;".*.**
1600 [153]G$;G$;Q$;"  *$**";G$;G$;F$;H$;Y$;O$
1610 [153]G$;F$;"$***  *$*";D$;G$;G$;G$;"*$$$*";Z$
1620 [153]G$;F$;Q$;"  $";R$;G$;G$;G$;G$;A$;J$;U$;T$
1630 [153]G$;E$;"$$**  $";R$;G$;G$;G$;G$;B$;"$*$$";U$;R$
1640 [153]G$;E$;"*$$*  *$*** ";G$;G$;G$;G$;"$**$$.***";U$
1650 [153]G$;D$;"$*$$$***$*";Y$;U$;"$***$.";U$;R$
1660 [153]G$;D$;P$;K$;Y$;U$;Q$;"$***$..";U$;R$
1670 [153]G$;D$;R$;J$;R$;G$;G$;G$;F$;"$***$.";U$;T$
1680 [153]G$;C$;"$***  $$$***";G$;G$;G$;E$;"$***$.";U$;T$
1690 [153]G$;C$;R$;C$;"*$***";G$;G$;G$;D$;"$***$.";U$;T$
1700 [153]G$;C$;R$;"  $";S$;G$;G$;G$;C$;"$***$.";U$;S$;W$
1710 [153]G$;"  $***   $";R$;G$;G$;G$;D$;"$**$.";U$;S$;"./
1720 PRINTG$;B$;R$;C$;"*$***";G$;G$;G$;C$;"$**$.";U$;U$;"/
1730 [153]G$;" $***   *$***";G$;G$;G$;D$;"$**.";U$;S$;"../
1740 PRINTG$;A$;R$;C$;H$;Y$;S$;"$**$.*.";U$;P$;".*.
1750 [153]G$;A$;R$;C$;H$;Y$;S$;"$**.*.";U$;Q$;"...
1760 PRINTG$;S$;C$;"*$*** ";G$;G$;G$;"$$**.**.*";U$;".**
1770 [153]G$;R$;C$;H$;S$;G$;G$;G$;" $**$*.**";U$;"....
1780 PRINTF$;"$*$**   $";R$;G$;G$;G$;" $*$...*.";U$;".* /
1790 [153]F$;"**$$*   *$*** ";G$;G$;G$;"$*$$.*.*";U$;"...
1800 PRINTE$;"$**$$    *$***";G$;G$;G$;"$*$$.*.*.*";U$;"/
1810 [153]E$;Q$;J$;C$;"*$***";G$;G$;F$;"$**$$..*.";U$;"..**
1820 PRINTE$;R$;"$$  $";S$;G$;G$;"$$*$$****$$)*.*.";T$;"/***
1830 [153]D$;H$;R$;J$;" $";R$;G$;G$;"$$*$$";S$;"$$..*.";S$;W$;R$
1840 [153]D$;S$;" $$ *$***";G$;D$;H$;U$;S$;"$$.*.$";S$;W$;S$
1850 [153]D$;S$;" $$$*$***";G$;C$;"$$*$**$";T$;"$$..*..***.*$";T$
1860 [153]D$;S$;" $$$*$***";G$;C$;"$$*$**$*** $**$$..*..***.*$";S$
1870 [153]D$;T$;I$;Z$;"$***$*$*";U$;"$$)*.*.***.*$$";R$
1880 [153]"   $";T$;I$;Z$;H$;R$;V$;U$;"**$$..**.***.*$$****
1890 PRINTC$;R$;D$;"*$***";G$;D$;"$***.";S$;S$;"$$.*.*.***.   ";S$
1900 PRINTC$;R$;D$;"*$***";G$;E$;H$;U$;T$;"$$..*.*.*.";D$;S$
1910 PRINT"  $"R$;D$;"*$***";G$;F$;H$;U$;S$;"$$.*.*.***    $";R$
1920 PRINTB$;R$;D$;H$;R$;G$;G$;H$;T$;T$;"$$..*.**.*..  ";T$
1930 PRINTB$;R$;D$;H$;R$;G$;F$;H$;U$;T$;"$$...";S$;W$;C$;S$
1940 PRINTB$;R$;D$;H$;R$;G$;F$;H$;U$;T$;"$$...";S$;W$;C$;S$
1950 PRINT" $***";E$;"*$***";F$;F$;H$;U$;U$;"$$..*.**.*..   $****
1960 [153]A$;R$;E$;"*$***";E$;F$;H$;S$;".**";U$;"$$  .***..*.";D$;S$
1970 [153]A$;R$;E$;"*$";Z$;R$;".*.";U$;"$$   *** ***.****$****
1980 PRINTA$;R$;E$;"*$";U$;U$;H$;S$;V$;T$;"$$)*";E$;"* **..**";U$
1990 PRINTH$;R$;D$;H$;R$;E$;F$;H$;S$;V$;T$;"$$.*.*    * *. .*.  $****
2000 [153]R$;E$;H$;R$;E$;F$;H$;R$;".*.****$$.* *  ";S$;" *....  ";T$
2010 [153]Q$;F$;"*$**";F$;F$;H$;U$;"**$$$****. ";S$;". *..*.   ";S$
2020 [153]Q$;F$;"*$**";F$;E$;"$$*";U$;J$;R$;".*** ***. *.* .   $****
2030 PRINTP$;F$;H$;R$;E$;E$;J$;T$;"$ $$$***.*.* ***.  ...*.   ";S$
2040 PRINTP$;F$;H$;R$;E$;E$;N$;"$   $$";S$;".. ***   .. *..";D$;S$
2050 PRINTP$;F$;"*$**";F$;F$;L$;E$;"$$***...    *. ..  *..";D$;H$;R$
2060 PRINTQ$;E$;"*$**";E$;F$;N$;E$;"$****.*   **.  *  *..";D$;S$
2070 PRINT"$*";E$;H$;R$;E$;F$;M$;F$;"$***.*.  **.  .   $$$";E$;R$
2080 PRINTG$;"$***";G$;G$;J$;D$;D$;R$;".* **.. ..";E$;F$;R$
2090 Z$="":FORI=1TO15:Z$=Z$+CHR$(32):NEXT:Y$="":FORI=1TO23:Y$=Y$+CHR$(32):NEXT
2100 PRINTG$;"*$**  ";Y$;"$**.*. * . ..*";E$;F$;H$;R$
2110 PRINTG$;"*$** ";Y$;H$;T$;" . ....*";E$;F$;S$
2120 PRINTF$;"$***  ";Y$;I$;S$;" . ....";G$;F$;R$
2130 PRINTF$;"$***  ";Y$;"$$ **** . . .";G$;G$;"$***
2140 [153]F$;"*$** ";Y$;J$;R$;" .  ..*";G$;G$;S$
2150 [153]F$;"*$** ";Y$;I$;T$;".   . ";Z$;R$
2160 [153]E$;"$***  ";Y$;I$;S$;". ...* ";Z$;R$
2170 [153]E$;"$***  ";Y$;I$;"**$**. ...* ";Z$;"$***
2180 PRINTE$;"*$**  ";Y$;"$$.$$ ** ...";Z$;C$;R$
2190 PRINTD$;"$***   ";Y$;"$..$.$* ** *";Z$;C$;R$
2200 PRINTD$;"$***   ";Y$;"$$$.$$ * *.";Z$;D$;"$***
2210 [153]D$;"*$**   ";Y$;"$$ $$ $$ **";Z$;D$;R$
2220 [153]D$;"*$**";Y$;E$;"$* $$  $$$";Z$;C$;"$***
2230 PRINTC$;R$;Y$;G$;" $$ $$$  $";Z$;C$;J$
2240 PRINTY$;Z$;C$;"$$ $ $";Z$;D$;I$
2250 PRINTY$;Z$;D$;J$
2260 PRINT#4:CLOSE4
2270 END